QR a tisk Bitmapy
Otázka od: Jaromir Cermak
12. 7. 2004 10:04
Ahoj vsichni
Pred dovolenou jsem sepokosel ziskat pomoc a ted zkousim znovu, protoze jsem
zoufaly. Na sestave tisknu nejake Bitmapy pres QRImage. Postup je takovy ze v
Create formulare sestavy natahnu pres LoadFromFile prislusny soubor a podle
obsahu dat ji pak pred tiskem nastavim Enabled. Problem je ze se nekdy bitmapa
nevitiskne, i kdyz ma a nekdy je tam cerny flek.
Vse je v D7 QR3.5.0 standard. Socasna konfigurace Program bezi na WinXP,
tiskarna je na Win NT 4. Je to HP Laser Jet 6P. Ovladace z instalace WinXP a
asi i z NT.
Nevite nekdo kde je problem?
Jaromir Cermak
Odpovedá: Milan Fabik
12. 7. 2004 10:58
Mal som rovnaky problem, bitmapu som hodil do RGB - jpeg. Naloudoval som ju do
Q-reportu a funguje to takmer spolahlivo.
----- Original hnu pres LoadFromFile prislusny soubor a podle obsahu dat ji
pak pred tiskem nastavim Enabled. Problem je ze se nekdy bitmapa nevitiskne, i
kdyz ma a nekdy je tam cerny flek.
Odpovedá: Karel Pecinka
12. 7. 2004 10:56
Nevim jestli ti to pomuze, ale ja tisknu obrazky timto zpusobem:
procedure TZboziTiskR.DetailBAfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
x: Integer;
begin
try
x := Data.FieldByName('Obr').AsInteger + 3;
except
x := -1;
end;
if not (x in [0..2]) then x := -1;
if x <> -1 then Obr.Picture.Bitmap := ObrazkyList.GraphicCell[x] else
Obr.Picture.Bitmap := nil;
end;
Karel
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
Behalf Of Jaromir Cermak
Sent: Monday, July 12, 2004 11:05 AM
To: delphi-l@clexpert.cz
Subject: QR a tisk Bitmapy
Ahoj vsichni
Pred dovolenou jsem sepokosel ziskat pomoc a ted zkousim znovu, protoze
jsem zoufaly. Na sestave tisknu nejake Bitmapy pres QRImage. Postup je
takovy ze v Create formulare sestavy natahnu pres LoadFromFile prislusny
soubor a podle obsahu dat ji pak pred tiskem nastavim Enabled. Problem
je ze se nekdy bitmapa nevitiskne, i kdyz ma a nekdy je tam cerny flek.
Vse je v D7 QR3.5.0 standard. Socasna konfigurace Program bezi na WinXP,
tiskarna je na Win NT 4. Je to HP Laser Jet 6P. Ovladace z instalace
WinXP a asi i z NT.
Nevite nekdo kde je problem?
Jaromir Cermak